Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/cliensvr/mainv2~1.frm

Text File | 1999-10-10 | 7KB | 219 lines

VERSION 5.00
Begin VB.Form form1
   BorderStyle     =   1  'Fixed Single
   Caption         =   "RemoteRun"
   ClientHeight    =   2640
   ClientLeft      =   2490
   ClientTop       =   3645
   ClientWidth     =   6690
   Icon            =   "main v2.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   2640
   ScaleWidth      =   6690
   Begin VB.CommandButton Command1
      Caption         =   "Send"
      Height          =   375
      Left            =   120
      TabIndex        =   8
      Top             =   1440
      Width           =   1935
   End
   Begin VB.TextBox Stat
      Appearance      =   0  'Flat
      BackColor       =   &H8000000F&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000012&
      Height          =   285
      Left            =   120
      TabIndex        =   7
      TabStop         =   0   'False
      Top             =   1920
      Width           =   6495
   End
   Begin VB.TextBox ReqWindow
      Height          =   285
      Left            =   3600
      TabIndex        =   5
      TabStop         =   0   'False
      Top             =   120
      Visible         =   0   'False
      Width           =   255
   End
   Begin VB.TextBox ReceiveWindow
      Height          =   285
      Left            =   3960
      TabIndex        =   6
      TabStop         =   0   'False
      Top             =   120
      Visible         =   0   'False
      Width           =   255
   End
   Begin VB.TextBox Host
      Height          =   285
      Left            =   4560
      TabIndex        =   3
      Text            =   "localhost"
      Top             =   120
      Width           =   2055
   End
   Begin VB.CommandButton Request
      Caption         =   "Connect"
      Height          =   375
      Left            =   4680
      TabIndex        =   2
      Top             =   960
      Width           =   1935
   End
   Begin VB.CommandButton ListenButton
      Caption         =   "Listen"
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   960
      Width           =   1935
   End
   Begin VB.TextBox Program
      Height          =   285
      Left            =   120
      TabIndex        =   0
      Top             =   480
      Width           =   6495
   End
   Begin VB.Label Label1
      Height          =   255
      Left            =   120
      TabIndex        =   9
      Top             =   2280
      Width           =   5295
   End
   Begin VB.Label ProgLabel
      Caption         =   "Data to Send:"
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   120
      Width           =   1215
   End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim StartupData As WSADataType
Dim SocketNum As Long
Dim ReadSock As Long
Dim SocketBuffer As sockaddr
Dim ReadSockBuffer As sockaddr
Dim ReadBuffer As String * 2048

Public Connections As New Collection


Private Sub Command1_Click()
RC = SendData(SocketNum, Program)
End Sub



Private Sub Form_Activate()
    Dim CmdLine As String
    CmdLine = Command
    If LCase(CmdLine) = "/listen" Then
        RemoteRun.WindowState = 1
        Call ListenButton_Click
    End If
End Sub
Private Sub Form_Load()

    RC = WSACleanup()

    RC = WSAStartup(&H101, StartupData)
    If RC = SOCKET_ERROR Then Exit Sub
End Sub
Private Sub Form_Unload(Cancel As Integer)
    RC = WSACleanup()
End Sub


Private Sub ListenButton_Click()

    Dim numListen As Integer
    Dim MyName As String
    Dim lenName As Integer
    Program = ""
    SocketNum = socket(AF_INET, SOCK_STREAM, 0)
    If SocketNum < 1 Then
        Exit Sub
    End If
    SocketBuffer.sin_family = AF_INET
    SocketBuffer.sin_port = htons(12310)
    SocketBuffer.sin_addr = 0
    SocketBuffer.sin_zero = String$(8, 0)
    X = bind(SocketNum, SocketBuffer, sockaddr_size)
    If X <> 0 Then
        X = WSACleanup()
        MsgBox "Failed to bind"
        Exit Sub
    End If
    numListen = 2
    X = listen(ByVal SocketNum, ByVal numListen)
    X = WSAAsyncSelect(SocketNum, ReceiveWindow.hWnd, ByVal &H202, ByVal FD_CONNECT Or FD_ACCEPT)
    MyName = GetLocalHostName + " (" + AddrToIP(GetLocalHostName) + ")"
    Stat = "Waiting for a connection to " + MyName
    form1.Caption = "RR" + MyName
    Label1.Caption = "Socket Number: " & SocketNum & "   PortNumber: 12310"

End Sub
Private Sub ReceiveWindow_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Program = ""
    ReadSock = accept(SocketNum, ReadSockBuffer, Len(ReadSockBuffer))
        Connections.Add ReadSock
'    X = listen(ByVal SocketNum, ByVal numListen)
    X = WSAAsyncSelect(ReadSock, ReqWindow.hWnd, ByVal &H202, ByVal FD_READ Or FD_CLOSE)
    Stat = "Connect accepted"
End Sub
Private Sub Request_Click()
    Dim IPAddr As Long
    IPAddr = GetHostByNameAlias(Host)
    If IPAddr = -1 Then
        Stat = "Cannot locate host " + Host
        MsgBox Stat
        Exit Sub
    End If
    SocketNum = socket(AF_INET, SOCK_STREAM, 0)
    If SocketNum = SOCKET_ERROR Then
        Stat = "Cannot Create Socket."
        Exit Sub
    End If
    SocketBuffer.sin_family = AF_INET
    SocketBuffer.sin_port = htons(12310)
    SocketBuffer.sin_addr = IPAddr
    SocketBuffer.sin_zero = String$(8, 0)
    RC = connect(SocketNum, SocketBuffer, Len(SocketBuffer))
    If RC = SOCKET_ERROR Then
        closesocket SocketNum
        Stat = "Connect rejected"
        Exit Sub
    End If
    'RC = SendData(SocketNum, "Hello" + vbCrLf)
    'closesocket SocketNum
    'Stat = "Connection is closed"
End Sub
Private Sub ReqWindow_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Bytes = recv(ReadSock, ReadBuffer, 2048, 0)
    If Bytes <> 0 Then
        Program = Program + Left$(ReadBuffer, Bytes)
        Stat = "Data Read"
    ElseIf WSAGetLastError() <> WSAEWOULDBLOCK Then
        X = WSAAsyncSelect(SocketNum, ReceiveWindow.hWnd, ByVal &H202, ByVal FD_CONNECT Or FD_ACCEPT)
        Stat = "Socket Closed"
        If InStr(Program, Chr$(13)) <> 0 Then
            Program = Left$(Program, InStr(Program, Chr$(13)) - 1)
        End If
        'closesocket (ReadSock)
    End If
End Sub